home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_1999-03_1999_CSW_Side_A.d64 / prog menu (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  747b  |  21 lines
  1. 5 poke45,peek(174):poke46,peek(175):clr
  2. 10 dv=peek(186):ifdv<8ordv>16thendv=8
  3. 20 open15,dv,15:ml=38400:sl=52608:dt=peek(ml+87)+256*peek(ml+88)
  4. 25 dn$="":dimf$(16)
  5. 30 print"[147] [211]elect program:":open1,dv,0,"$:nova.*":get#1,a$,a$:sysml+54:mx=0
  6. 40 sysml+54:ifright$(z$,1)="."orright$(z$,4)="free"then80
  7. 45 geta$:ifa$="[133]"thenclose1:print:goto110
  8. 46 ifp=0thenp=val(a$)
  9. 47 ifp>0andmx>=pthenprint:goto101
  10. 50 f$="":mx=mx+1:fori=12to22:a$=mid$(z$,i,1):ifa$=chr$(34)theni=22:goto70
  11. 60 f$(mx)=f$(mx)+a$
  12. 70 next:print" "f$(mx)"[160]":goto40
  13. 80 close1:print" [210]eturn to [206]ovaterm[160]":mx=mx+2
  14. 90 poke780,1:poke781,2:poke782,mx:pokedt+37,1:syssl+27:p=peek(780):ifp=mxthen110
  15. 101 print" [204]oading nova."f$(p)
  16. 102 open2,dv,0,"nova."+f$(p):input#15,e:close2:ife>19then30
  17. 105 load"nova."+f$(p),dv
  18. 110 open2,dv,0,"novaterm ?.?*":input#15,e:close2:ife>19thenend
  19. 115 print" [204]oading [206]ovaterm..."
  20. 120 poke787,dv:clr:load"novaterm ?.?*",peek(787)
  21.